Amiga Format CD 41/Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso/-seriously_amiga-/programming/other/pmanager/install_pmanager

Text File | 1999-04-28 | 7KB | 231 lines

; Installer script for PManager.

(user 1)
(set @default-dest "Work:")
(welcome "\nThis installer script will install PManager v2.5b (19 April 1999)\nthe programmer's project manager")

(if
    (not (= (exists "MUI:" (noreq)) 2))
    (abort "PManager needs MUI 3.7 or higher.\n")
)
(
    (set a_compiler
            (askchoice
                    (prompt "Select C compiler environment to install")
                    (choices "SAS/C" "Other")
               (help "Currently fully supported only SAS/C")
                    (default 0)
            )
    )
    (if (= a_compiler 0)
    (
        (set a_editor
                (askchoice
                        (prompt "Select editor environment to install")
                        (choices "GoldEd" "SAS/C SE" "Other")
                   (help "Currently fully supported only GoldEd 4.xx and SAS/C SE editors")
                        (default 0)
                )
        )
    )
    )

    (set #ddir
        (askdir
            (prompt "Select destination directory to install (directory called \"PManager\" will be created there).\n Or select PManager parent directory to update old version.")
            (help @askdir-help)
            (default @default-dest)
        )
    )
    (set @default-dest (tackon #ddir "PManager"))

    (copylib
        (prompt "Installing the WBStart.library")
        (help "")
        (source "config/libs/wbstart.library")
        (dest "Libs:")
        (confirm)
    )

    (makedir @default-dest)
    (copyfiles
        (source "/PManager.info")
        (dest #ddir)
    )
    (makedir @default-dest)
    (copyfiles
        (source "docs.info")
        (dest  @default-dest)
    )
    (copyfiles
        (source "config/")
        (choices "PManager.info" "PManager")
        (dest @default-dest)
    )

    (makedir (tackon @default-dest "docs"))
    (run ("delete %s/sc all force" @default-dest))
    (run ("delete %s/sc.info all force" @default-dest))
    (run ("delete %s/arexx all force" @default-dest))
    (run ("delete %s/arexx.info all force" @default-dest))

    (copyfiles
        (source "")
        (choices "docs/PManager.guide" "docs/PManager.guide.info"
                 "docs/PManager.readme" "docs/PManager.readme.info")
        (dest (tackon @default-dest "docs"))
        (prompt "Installing documentation")
        (help "")
        (confirm)
    )
    (if (= (exists ("%s/PManager.sections" @default-dest)) 0)
    (
        (copyfiles
            (source "config/PManager.sections")
            (dest @default-dest)
        )
    )
    )

;----------------------------------------------------------

    (if (= a_compiler 0)
    (
        (copyfiles
            (source "config/compiler/sc")
            (choices "grep_gui" "makegst")
            (dest "sc:c/")
            (prompt "Installing GREP_GUI and MAKEGST")
            (help "")
            (confirm)
        )

        (if (= (exists ("%s/PManager.tools" @default-dest)) 1)
        (
            (if
            (askbool
                    (prompt "Would you like to install default \"PManager.tools\" v2.4?\n (Your edition will be saved with .bak extension)")
                    (help "In the new \"PManager.tools\" v2.4 there is a options to manage all.gst file creation")
                    (default 1)
            )

                (
                    (copyfiles
                        (source ("%s/PManager.tools" @default-dest))
                        (dest @default-dest)
                        (newname "PManager.tools.bak")
                        (optional "nofail")
                    )
                    (copyfiles
                        (source "config/compiler/sc/PManager.tools")
                        (dest @default-dest)
                    )
                )
            )
        )
        (copyfiles
            (source "config/compiler/sc/PManager.tools")
            (dest @default-dest)
        )
        )

        (if (= (exists ("%s/PManager.config" @default-dest)) 1)
        (
            (if
            (askbool
                    (prompt "Would you like to install default \"PManager.config\" v2.5?\n (Your edition will be saved with .bak extension)")
                    (help "In the new \"PManager.config\" v2.5 there is a fixed \"compiler = sc nolink\" option")
                    (default 1)
            )
                (
                    (copyfiles
                        (source ("%s/PManager.config" @default-dest))
                        (dest @default-dest)
                        (newname "PManager.config.bak")
                        (optional "nofail")
                    )
                    (if (= a_editor 0)
                    (
                        (run ("join config/editor/golded/PManager.config config/compiler/sc/PManager.config to %s/PManager.config"
                               @default-dest))
                        (copyfiles
                            (source "config/editor/golded/scmsg")
                            (dest "ENVARC:sc/")
                        )
                    )
                    )
                    (if (= a_editor 1)
                    (
                        (run ("join config/editor/golded/PManager.config config/compiler/sc/PManager.config to %s/PManager.config"
                               @default-dest))
                        (copyfiles
                            (source "config/editor/se/scmsg")
                            (dest "ENVARC:sc/")
                        )
                    )
                    )
                    (if (= a_editor 2)
                    (
                            (run ("join config/editor/golded/PManager.config config/compiler/sc/PManager.config to %s/PManager.config"
                                   @default-dest))
                    )
                    )
                )
            )
        )
        (
        (if (= a_editor 0)
        (
            (run ("join config/editor/golded/PManager.config config/compiler/sc/PManager.config to %s/PManager.config"
                   @default-dest))
            (copyfiles
                (source "config/editor/golded/scmsg")
                (dest "ENVARC:sc/")
            )
        )
        )
        (if (= a_editor 1)
        (
            (run ("join config/editor/golded/PManager.config config/compiler/sc/PManager.config to %s/PManager.config"
                   @default-dest))
            (copyfiles
                (source "config/editor/se/scmsg")
                (dest "ENVARC:sc/")
            )
        )
        )
        (if (= a_editor 2)
        (
                (run ("join config/editor/golded/PManager.config config/compiler/sc/PManager.config to %s/PManager.config"
                       @default-dest))
        )
        )
        )

        )
    )
    )

    (if (= a_compiler 1)
    (
            (if (= (exists ("%s/PManager.config" @default-dest)) 0)
            (
                (run ("join config/editor/other/PManager.config config/compiler/other/PManager.config to %s/PManager.config"
                       @default-dest))
                (run ("ed %s/PManager.config" @default-dest))
            )
            )
            (if (= (exists ("%s/PManager.tools" @default-dest)) 0)
            (
                (copyfiles
                    (source "config/compiler/other/PManager.tools")
                    (dest @default-dest)
                )
            )
            )
    )
    )

    (exit)
)